home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
cdxvbf1a
/
frmtest1.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-09-09
|
2KB
|
48 lines
VERSION 5.00
Begin VB.Form frmTest1
Caption = "Click and double-click me!"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 213
ScaleMode = 3 'Pixel
ScaleWidth = 312
StartUpPosition = 3 'Windows Default
Attribute VB_Name = "frmTest1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' The font object
Dim myFont As New CDXVBFont
Private Sub Form_Click()
' Clear the screen
Me.Cls
myFont.CreateNewFont "fixedsys"
myFont.SetFont Me
Randomize
' Draw the text
myFont.GradTextOut Me, 0, 0, RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), "CDXVBFont"
myFont.GradTextOut Me, 30, 14, RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), "CDXVBFont"
myFont.GradTextOut Me, 60, 28, RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), "CDXVBFont"
myFont.GradTextOut Me, 30, 42, RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), "CDXVBFont"
myFont.GradTextOut Me, 0, 56, RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), "CDXVBFont"
End Sub
Private Sub Form_DblClick()
Me.Cls
For i = 0 To Screen.FontCount
Randomize
myFont.CreateNewFont Screen.Fonts(i)
myFont.SetFont Me
myFont.GradTextOut Me, Int(Rnd * (Me.ScaleWidth - myFont.GetTextWidth(Me, Screen.Fonts(i)))), Int(Rnd * (Me.ScaleHeight - myFont.GetTextHeight(Me, Screen.Fonts(i)))), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)), Screen.Fonts(i)
Next i
End Sub
Private Sub Form_Load()
' Create font
myFont.CreateNewFont "fixedsys"
' Set font to fixedsys
myFont.SetFont Me
End Sub